home *** CD-ROM | disk | FTP | other *** search
/ BCI NET 2 / BCI NET 2.iso / archives / programming / misc / xref_v1.1.lha / XRef / Projects / XRef-System-Convert < prev   
Encoding:
Text File  |  1994-10-06  |  3.9 KB  |  114 lines
  1. ;
  2. ; $PROJECT: Include & AutoDoc convert installer-script
  3. ;
  4. ; $VER: XRef-System-Convert 1.2 (03.10.94)
  5. ; by
  6. ;
  7. ; Stefan Ruppert , Windthorststraße 5 , 65439 Flörsheim , GERMANY
  8. ;
  9. ; (C) Copyright 1994
  10. ; All Rights Reserved !
  11. ;
  12.  
  13. (set toolsdir
  14. (cat "/Tools/c"
  15. ))
  16.  
  17. (set #generate-what
  18. (cat "What AmigaGuide files would you generate ?"
  19. ))
  20.  
  21. (set #system-include-dir
  22. (cat "Select your system include directory :"
  23. ))
  24.  
  25. (set #system-autodoc-dir
  26. (cat "Select your system autodoc directory :"
  27. ))
  28.  
  29. (set #which-autodoc-destdir
  30. (cat "Select the directory to put the generated AutoDoc AmigaGuide files :"
  31. ))
  32.  
  33. (set #which-include-destdir
  34. (cat "Select the directory to put the generated Include AmigaGuide files :"
  35. ))
  36.  
  37.  
  38. (set opt (askoptions (prompt #generate-what)
  39.                      (help #generate-what-help)
  40.                      (choices "System Autodocs"
  41.                               "System Includes")
  42.                      (default 0)
  43.          )
  44. )
  45.  
  46. (if (>= opt 0)
  47.     (
  48.         (
  49.             (set includedir (askdir (prompt #system-include-dir)
  50.                                     (help #system-include-dir-help)
  51.                                     (default "Include:")
  52.                             )
  53.             )
  54.             (set autodocdir (askdir (prompt #system-autodoc-dir)
  55.                                     (help #system-autodoc-dir-help)
  56.                                     (default "Autodocs:")
  57.                             )
  58.             )
  59.         )
  60.  
  61.         (set vernum (getversion "xref.library" (resident)))
  62.         (if (>= vernum 0)
  63.             (
  64.                 (message "Removing all XRefFiles in memory with :\n\n"
  65.                          "ExpungeXRef FORCE")
  66.                 (run (tackon toolsdir "ExpungeXRef") " FORCE")
  67.             )
  68.         )
  69.  
  70.         (message (cat "Now generating System AutoDocs XRef's with :\n\n"
  71.                       "MakeXRef FROM " autodocdir " TO T:sys_autodoc.xref CATEGORY SysAutoDoc VERBOSE"))
  72.  
  73.         (run (cat (tackon toolsdir "MakeXRef") " FROM " autodocdir " TO T:sys_autodoc.xref CATEGORY SysAutoDoc VERBOSE >CON:////MakeXRef-System-AutoDocs"))
  74.  
  75.         (message (cat "Now generating System Include XRef's with :\n\n"
  76.                       "MakeXRef FROM " includedir " TO T:sys_include.xref CATEGORY SysInclude PATH AG:SysInc VERBOSE"))
  77.  
  78.         (run (cat (tackon toolsdir "MakeXRef") " FROM " includedir " TO T:sys_include.xref CATEGORY SysInclude PATH AG:SysInc VERBOSE >CON:////MakeXRef-System-Includes"))
  79.  
  80.         (message (cat "Now loading the generated XReffiles with :\n\n"
  81.                       "LoadXRef T:sys_autodoc.xref T:sys_include.xref"))
  82.  
  83.         (run (cat (tackon toolsdir "LoadXRef") " T:sys_autodoc.xref T:sys_include.xref"))
  84.  
  85.         (if (IN opt 0)
  86.             (
  87.                 (set destdir (askdir (prompt #which-autodoc-destdir)
  88.                                      (help #which-autodoc-destdir-help)
  89.                                      (default "Work:")
  90.                              )
  91.                 )
  92.                 (message (cat "Now Converting System Autodocs to AmigaGuide files with :\n\n"
  93.                               "XRefConvert FROM " autodocdir " TO " destdir " CATEGORY Sys#?"))
  94.                 (run (cat (tackon toolsdir "XRefConvert") " FROM " autodocdir " TO " destdir " CATEGORY Sys#? VERBOSE >CON:////XRefConvert-System-AutoDocs"))
  95.             )
  96.         )
  97.  
  98.         (if (IN opt 1)
  99.             (
  100.                 (set destdir (askdir (prompt #which-include-destdir)
  101.                                      (help #which-include-destdir-help)
  102.                                      (default "Work:")
  103.                              )
  104.                 )
  105.                 (message (cat "Now Converting System Includes to AmigaGuide files with :\n\n"
  106.                               "XRefConvert FROM " includedir " TO " destdir " CATEGORY Sys#?"))
  107.                 (run (cat (tackon toolsdir "XRefConvert") " FROM " includedir " TO " destdir " CATEGORY Sys#? VERBOSE >CON:////XRefConvert-System-Includes"))
  108.             )
  109.         )
  110.     )
  111. )
  112.  
  113.  
  114.